home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / utils / graphic / viewers / general / amiga / btrthnjp / decmprss.rxx < prev    next >
Encoding:
Text File  |  1991-12-08  |  2.3 KB  |  83 lines
  1. /**************************/
  2. /** REXX:DECOMPRESS.REXX **/
  3. /**************************/
  4. /*     BY RICK TILLERY    */
  5. /**************************/
  6.  
  7. /* ------------------------------------ */
  8. /* | THIS SCRIPT RUNS WITH ADPRO 2.0. | */
  9. /* ------------------------------------ */
  10.  
  11. /* See REXX:COMPRESS.REXX for details */
  12.  
  13. /* Instructions:  1. Unarc GIF files.                                   */
  14. /*                2. Move input GIF files to a HD partition with at     */
  15. /*                   least WIDTH x HEIGHT x 3 x 2 free bytes (i.e. 768  */
  16. /*                   x 480 x 3 x 2 = 2,211,840 bytes)                   */
  17. /*                3. Run ADPro 2.0                                      */
  18. /*                4. Run this script                                    */
  19. /*                5. Use ADPro requester to give name of RED input file */
  20. /*                6. Use ADPro requester to give name of GREEN input    */
  21. /*                7. Use ADPro requester to give name of BLUE input     */
  22. /*                8. Use ADPro requester to give name of output file    */
  23. /*                9. WAIT - this script with produce an IFF24 file      */
  24.  
  25. /* Portal:  RTillery  (RTillery@cup.portal.com) */
  26.  
  27.  
  28.  
  29. /* Open port to ADPro - it must be running first */
  30.    ADDRESS "ADPro"
  31.    
  32. /* Turn on results flag to get data FROM ADPro... */
  33. /* ...and set loader/saver formats */
  34.    OPTIONS RESULTS
  35.    LFORMAT "UNIVERSAL"
  36.    SFORMAT "SCULPT"
  37.    
  38. /* Ask user for red GIF file to load */
  39.    LOAD '"' || '"'
  40.  
  41.    LAST_LOADED_IMAGE
  42.    FILE = ADPRO_RESULT
  43.    
  44. /* Get size of input file from ADPro */
  45.    XSIZE
  46.    WIDTH = ADPRO_RESULT
  47.    YSIZE
  48.    HEIGHT = ADPRO_RESULT
  49.    
  50. /* Save the raw image info in three separate red, green and blue files */
  51.    SAVE FILE||'1.red' RAW
  52.  
  53.    ADDRESS "COMMAND"
  54.    'DELETE' FILE||'1.(GRN|BLU)'
  55.    
  56.    ADDRESS "ADPro"
  57.    LOAD '"' || '"'
  58.    SAVE FILE||'2.red' RAW
  59.    
  60.    ADDRESS "COMMAND"
  61.    'DELETE' FILE||'2.(RED|BLU)'
  62.    
  63.    ADDRESS "ADPro"
  64.    LOAD '"' || '"'
  65.    SAVE FILE||'3.red' RAW
  66.    
  67.    ADDRESS "COMMAND"
  68.    'DELETE' FILE||'3.(RED|GRN)'
  69.    'RENAME' FILE||'1.RED' FILE||'.red'
  70.    'RENAME' FILE||'2.GRN' FILE||'.grn'
  71.    'RENAME' FILE||'3.BLU' FILE||'.blu'
  72.    
  73.    ADDRESS "ADPro"
  74.    LFORMAT "SCULPT"
  75.    LOAD FILE||'.red' WIDTH HEIGHT COLOR
  76.    
  77.    ADDRESS "COMMAND"
  78.    'DELETE' FILE||'.#?'
  79.    
  80.    ADDRESS "ADPro"
  81.    SFORMAT "IFF"
  82.    SAVE LEFT(FILE,LENGTH(FILE)-8) RAW
  83.